This is an R Markdown presentation. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document.

• Bullet 1
• Bullet 2
• Bullet 3

library(readxl)
library(ggplot2)

## Registered S3 methods overwritten by 'ggplot2':
##   method         from 
##   [.quosures     rlang
##   c.quosures     rlang
##   print.quosures rlang

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(scales)
Fig5 <- read_excel("C:/Users/JaimePinillaDomingue/Desktop/Fig5.xlsx")
newF5<- subset(Fig5, F_publi>0)
q<-(ggplot(newF5, aes(F_publi, fill = Tipo)) + geom_density(alpha = 0.2)+
      xlab("")+
      ylab("")+
      scale_x_continuous(breaks=c(1:20))+
      facet_grid(Periodo~.)+
      theme(legend.position="bottom",legend.title=element_blank()))